library(party)
library(randomForest)
out <- randomForest(nativeSpeaker~age+shoeSize+score,
                    data=readingSkills)
print(out)
print(importance(out,type=2))
